home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 5
/
Aminet 5 - March 1995.iso
/
Aminet
/
disk
/
cdrom
/
YACDP1_2.lha
/
YACDP 1.2
/
c
/
Update
< prev
Wrap
AmigaDOS Script File
|
1994-12-05
|
694b
|
25 lines
.key DIR
.bra {
.ket }
failat 21
cd "{DIR}"
c:which >NIL: makehash
IF WARN
echo "Program 'MakeHash' must be available!"
quit 10
ENDIF
IF NOT EXISTS data.hash
echo "The file 'data.hash' doesn't exist!*nAre you in the right drawer ???"
quit 10
ENDIF
c:makedir >NIL: T:yacdp{$$}
c:makedir >NIL: Storage
c:copy data.hash T:yacdp{$$}/
makehash T:yacdp{$$}/ EXTRACT=#?
c:copy >NIL: ((UPC-#?)|(#?'|#?)|(#[0-9])) TO T:yacdp{$$}/ QUIET CLONE
c:rename >NIL: ((UPC-#?)|(#?'|#?)|(#[0-9])) TO Storage/ QUIET
makehash >NIL: T:yacdp{$$}/ NUM=400
c:copy T:yacdp{$$}/data.hash ""
c:delete T:yacdp{$$} QUIET ALL
echo "OK, the hashfile was updated.*n(your new songfiles were also saved to `cd`/Storage/)"